home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPapp Portal / register.asp < prev    next >
Text File  |  2002-03-13  |  11KB  |  369 lines
  1. <!-- #include file="i_utils.asp" -->
  2. <%
  3. %>
  4. <%
  5.     dim dtInserted
  6.     dim accesslevel
  7.     dim user_id
  8.     dim user_name
  9.     dim f_name
  10.     dim l_name
  11.     dim email
  12.     dim password
  13.     dim addr1
  14.     dim addr2
  15.     dim city
  16.     dim state
  17.     dim postalcode
  18.     dim country
  19.     dim phone
  20.     dim notes
  21.     dim register_sql
  22.  
  23. sub request_register
  24. ''' request expected input parameters for this form
  25.     dtInserted = request("dtInserted")
  26.     accesslevel = request("accesslevel")
  27.     user_id = request("user_id")
  28.     user_name = request("user_name")
  29.     f_name = request("f_name")
  30.     l_name = request("l_name")
  31.     email = request("email")
  32.     password = request("password")
  33.     addr1 = request("addr1")
  34.     addr2 = request("addr2")
  35.     city = request("city")
  36.     state = request("state")
  37.     postalcode = request("postalcode")
  38.     country = request("country")
  39.     phone = request("phone")
  40.     notes = request("notes")
  41. end sub
  42.  
  43. sub validate_register
  44. ''' request and validate data entered from this form
  45.     dtInserted = trim(request("dtInserted"))
  46.     if dtInserted <> "" AND (not isdate(dtInserted)) then
  47.         error_list.add "487811date"," must be a valid date (MM/DD/YY)."
  48.         b_error = true
  49.     end if
  50.     accesslevel = trim(request("accesslevel"))
  51.     user_id = trim(request("user_id"))
  52.     user_name = trim(request("user_name"))
  53.     if user_name = "" then
  54.         error_list.add "487798","desired username must be specified."
  55.         b_error = true
  56.     end if
  57.     f_name = trim(request("f_name"))
  58.     l_name = trim(request("l_name"))
  59.     email = trim(request("email"))
  60.     if email = "" then
  61.         error_list.add "487801","email must be specified."
  62.         b_error = true
  63.     end if
  64.     password = trim(request("password"))
  65.     if password = "" then
  66.         error_list.add "487802","password must be specified."
  67.         b_error = true
  68.     end if
  69.     addr1 = trim(request("addr1"))
  70.     addr2 = trim(request("addr2"))
  71.     city = trim(request("city"))
  72.     state = trim(request("state"))
  73.     postalcode = trim(request("postalcode"))
  74.     country = trim(request("country"))
  75.     phone = trim(request("phone"))
  76.     notes = trim(request("notes"))
  77. end sub
  78.  
  79. sub get_defaults_register
  80. ''' set default values for this form
  81.     accesslevel = 1
  82. end sub
  83.  
  84. sub db_select_register
  85.     sql = "SELECT " & _     "dtInserted, " & _     "accesslevel, " & _     "user_id, " & _     "user_name, " & _     "f_name, " & _     "l_name, " & _     "email, " & _     "password, " & _     "addr1, " & _     "addr2, " & _     "city, " & _     "state, " & _     "postalcode, " & _     "country, " & _     "phone, " & _     "notes FROM Users" & _     " WHERE " & _     "Users.user_id = " & to_sql(user_id,"number") & ""
  86.     on error resume next
  87.     set rs = cn.Execute(sql)
  88.     if err.number <> 0 then
  89.         b_error = true
  90.         error_list.add "select_data_register", "The data selection failed. " & err.description
  91.     elseif rs.EOF then
  92.         b_results = false
  93.         msg_list.add "select_data_register", "The record was removed from the database."
  94.     else
  95.         dtInserted = rs("dtInserted")
  96.         accesslevel = rs("accesslevel")
  97.         user_id = rs("user_id")
  98.         user_name = rs("user_name")
  99.         f_name = rs("f_name")
  100.         l_name = rs("l_name")
  101.         email = rs("email")
  102.         password = rs("password")
  103.         addr1 = rs("addr1")
  104.         addr2 = rs("addr2")
  105.         city = rs("city")
  106.         state = rs("state")
  107.         postalcode = rs("postalcode")
  108.         country = rs("country")
  109.         phone = rs("phone")
  110.         notes = rs("notes")
  111.     end if
  112.     rs.Close
  113.     on error goto 0
  114. end sub
  115. sub db_insert_register
  116.     sql = "INSERT INTO Users" & _     "(" & _     "user_name," & _     "f_name," & _     "l_name," & _     "[email]," & _     "[password]," & _     "addr1," & _     "addr2," & _     "city," & _     "[state]," & _     "postalcode," & _     "country," & _     "phone," & _     "[notes]," & _     "dtInserted," & _     "dtModified," & _     "accesslevel" & _     ") VALUES (" & _     "" & to_sql(user_name,"text") & "," & _     "" & to_sql(f_name,"text") & "," & _     "" & to_sql(l_name,"text") & "," & _     "" & to_sql(email,"text") & "," & _     "" & to_sql(password,"text") & "," & _     "" & to_sql(addr1,"text") & "," & _     "" & to_sql(addr2,"text") & "," & _     "" & to_sql(city,"text") & "," & _     "" & to_sql(state,"text") & "," & _     "" & to_sql(postalcode,"text") & "," & _     "" & to_sql(country,"text") & "," & _     "" & to_sql(phone,"text") & "," & _     "" & to_sql(notes,"text") & "," & _     "" & to_sql(now,"date") & "," & _     "" & to_sql(now,"date") & "," & _     "" & to_sql(accesslevel,"number") & ")"
  117.     'response.write sql
  118.     on error resume next
  119.     cn.Execute(sql)
  120.     if err.Number <> 0 then
  121.         b_error = true
  122.         error_list.add "db_insert_register" & err.Number ,"The database insert failed. " & err.Description
  123.     else
  124.         set rs = cn.Execute("SELECT @@IDENTITY")
  125.         user_id = rs(0)
  126.         rs.Close
  127.         msg_list.add "db_insert_register","The database insert was successful."    end if
  128.     on error goto 0
  129. end sub
  130. sub db_update_register
  131.     sql = "UPDATE Users SET " & _     "dtInserted = " & to_sql(dtInserted,"text") & ", " & _     "accesslevel = " & to_sql(accesslevel,"number") & ", " & _     "user_name = " & to_sql(user_name,"text") & ", " & _     "f_name = " & to_sql(f_name,"text") & ", " & _     "l_name = " & to_sql(l_name,"text") & ", " & _     "email = " & to_sql(email,"text") & ", " & _     "password = " & to_sql(password,"text") & ", " & _     "addr1 = " & to_sql(addr1,"text") & ", " & _     "addr2 = " & to_sql(addr2,"text") & ", " & _     "city = " & to_sql(city,"text") & ", " & _     "state = " & to_sql(state,"text") & ", " & _     "postalcode = " & to_sql(postalcode,"text") & ", " & _     "country = " & to_sql(country,"text") & ", " & _     "phone = " & to_sql(phone,"text") & ", " & _     "notes = " & to_sql(notes,"text") & " WHERE " & _     "user_id = " & to_sql(user_id,"number") & ""
  132.     'response.write sql
  133.     on error resume next
  134.     cn.execute(sql)
  135.     if err.number <> 0 then
  136.         b_error = true
  137.         error_list.add "db_update_register" & err.Number ,"The database update failed. " & err.Description
  138.     else
  139.         msg_list.add "db_update_register" & user_id,"The database update was successful."
  140.     end if
  141.     on error goto 0
  142. end sub
  143. sub db_delete_register
  144.     sql = "DELETE FROM Users" & _     " WHERE " & _     "user_id = " & to_sql(user_id,"number") & ""
  145.     'response.write sql
  146.     on error resume next
  147.     cn.Execute(sql)
  148.     if err.number <> 0 then
  149.         b_error = true
  150.         error_list.add "db_delete_register" & err.Number ,"The database deletion failed. " & err.Description
  151.     else
  152.         msg_list.add "db_delete_register","The record was removed."
  153.     end if
  154.     on error goto 0
  155. end sub
  156.  
  157. do_search = request("do_search")
  158. ''' request form keys
  159. user_id = request("user_id")
  160. ''' request action
  161. action = lcase(request("action"))
  162. ''' action case handler
  163. select case action
  164.  
  165. case "select_register"
  166. '  select the requested key record from database
  167. if user_id <> "" then
  168.     db_select_register
  169. else
  170.     b_error = true
  171.     error_list.add "edit_register", "Specify record to select."
  172. end if
  173.  
  174.  
  175. case "insert_register"
  176. '  request form data and insert a new record into database
  177.  
  178. validate_register
  179. if not b_error then
  180.     db_insert_register
  181. end if
  182.  
  183.  
  184.  
  185. case "update_register"
  186. '  request form data and update an existing database record
  187. validate_register
  188. if not b_error then
  189. if user_id <> "" then
  190.     db_update_register
  191. else
  192.     b_error = true
  193.     error_list.add "update_register", "Specify record to update."
  194. end if
  195. end if
  196.  
  197.  
  198. case "delete_register"
  199. '  delete the requested key database record
  200. if user_id <> "" then
  201.     db_delete_register
  202.     response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
  203. else
  204.     b_error = true
  205.     error_list.add "delete_register", "Specify record to delete."
  206. end if
  207.  
  208.  
  209. end select
  210.  
  211. '  no action was specified, so handle the default case(s)
  212. if user_id <> "" then
  213.     db_select_register
  214. end if
  215.  
  216.  
  217. %>
  218.  
  219. <!-- #include file='i_header.asp' -->
  220. <!-- #include file='i_menu.asp' -->
  221.  
  222.  
  223. <%
  224. display_errs
  225. display_msg
  226. %>
  227.  
  228. <table class='headerTable'>
  229. <tr>
  230. <td class='headerTD'>
  231. Register
  232. </td>
  233. </tr>
  234. </table>
  235. <table  >
  236. <form name="register" action="" method="get" >
  237.         
  238.         <input type=hidden name="dtInserted" value="<% =dtInserted %>">
  239.         
  240.         
  241.         <input type=hidden name="accesslevel" value="<% =accesslevel %>">
  242.         
  243.         
  244.         <input type=hidden name="user_id" value="<% =user_id %>">
  245.         
  246. <tr>
  247.     <td class='labelTD'>desired username</td>
  248.     <td class='dataTD' width='75%'>
  249.         <input type=text  name="user_name" size="" maxlength="50" value="<% =user_name%>">
  250.     </td>
  251.     <td class='labelTD'></td>
  252. </tr>
  253. <tr>
  254.     <td class='labelTD'>first name</td>
  255.     <td class='dataTD' >
  256.         <input type=text  name="f_name" size="" maxlength="50" value="<% =f_name%>">
  257.     </td>
  258.     <td class='labelTD'></td>
  259. </tr>
  260. <tr>
  261.     <td class='labelTD'>last name</td>
  262.     <td class='dataTD' >
  263.         <input type=text  name="l_name" size="" maxlength="70" value="<% =l_name%>">
  264.     </td>
  265.     <td class='labelTD'></td>
  266. </tr>
  267. <tr>
  268.     <td class='labelTD'>email</td>
  269.     <td class='dataTD' >
  270.         <input type=text  name="email" size="" maxlength="60" value="<% =email%>">
  271.     </td>
  272.     <td class='labelTD'></td>
  273. </tr>
  274. <tr>
  275.     <td class='labelTD'>password</td>
  276.     <td class='dataTD' >
  277.         <input type=password name="password" size="" maxlength="50" value="<% =password %>">
  278.     </td>
  279.     <td class='labelTD'></td>
  280. </tr>
  281. <tr>
  282.     <td class='labelTD'>address</td>
  283.     <td class='dataTD' >
  284.         <input type=text  name="addr1" size="" maxlength="100" value="<% =addr1%>">
  285.     </td>
  286.     <td class='labelTD'></td>
  287. </tr>
  288. <tr>
  289.     <td class='labelTD'></td>
  290.     <td class='dataTD' >
  291.         <input type=text  name="addr2" size="" maxlength="50" value="<% =addr2%>">
  292.     </td>
  293.     <td class='labelTD'></td>
  294. </tr>
  295. <tr>
  296.     <td class='labelTD'>city</td>
  297.     <td class='dataTD' >
  298.         <input type=text  name="city" size="" maxlength="50" value="<% =city%>">
  299.     </td>
  300.     <td class='labelTD'></td>
  301. </tr>
  302. <tr>
  303.     <td class='labelTD'>state</td>
  304.     <td class='dataTD' >
  305.         <input type=text  name="state" size="" maxlength="50" value="<% =state%>">
  306.     </td>
  307.     <td class='labelTD'></td>
  308. </tr>
  309. <tr>
  310.     <td class='labelTD'>postal code</td>
  311.     <td class='dataTD' >
  312.         <input type=text  name="postalcode" size="" maxlength="50" value="<% =postalcode%>">
  313.     </td>
  314.     <td class='labelTD'></td>
  315. </tr>
  316. <tr>
  317.     <td class='labelTD'>country</td>
  318.     <td class='dataTD' >
  319.         <input type=text  name="country" size="" maxlength="50" value="<% =country%>">
  320.     </td>
  321.     <td class='labelTD'></td>
  322. </tr>
  323. <tr>
  324.     <td class='labelTD'>phone</td>
  325.     <td class='dataTD' >
  326.         <input type=text  name="phone" size="" maxlength="50" value="<% =phone%>">
  327.     </td>
  328.     <td class='labelTD'></td>
  329. </tr>
  330. <tr>
  331.     <td class='labelTD'>comments</td>
  332.     <td class='dataTD' >
  333.         
  334.         <textarea  name="notes" rows='10' cols='70'><% =notes%></textarea>
  335.         
  336.     </td>
  337.     <td class='labelTD'></td>
  338. </tr>
  339. <tr>
  340.     <td class=labelTD align=right> 
  341.     <% if user_id <> "" then %><% end if %>
  342.     </td>
  343.     <td class=dataTD>
  344.     <% if user_id = "" then %><input class=cmd type=submit value='REGISTER'><% end if %>
  345.     </td>
  346.     <td class=labelTD> 
  347.     </td>
  348. <input type=hidden name="action" value="<% if user_id <> "" then %>update<% else %>insert<%end if %>_register"></tr>
  349.  
  350. </form>
  351. </table>
  352.  
  353.  
  354.  
  355. <!-- #include file=i_footer.asp -->
  356.  
  357.  
  358. <%
  359. ':: assure that any db resources are freed
  360. on error resume next
  361. rs.Close
  362. set rs = NOTHING
  363. cn.Close
  364. set cn = NOTHING
  365. user_cn.Close
  366. set user_cn = NOTHING
  367. on error goto 0
  368. %>
  369.